home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / PRN2GRAF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-05-11  |  768 b   |  26 lines
  1. 200  REM This program currently only prints using 960 bit graphics.  You could convert to 480 bit graphics to get lower  resolution.
  2. 250  WIDTH "lpt1:",255
  3. 252  LPRINT CHR$(27);"3";CHR$(24)
  4. 255  FOR Z%=1 TO INT(((TOP-1)/8))
  5. 256  LPRINT " "
  6. 257  NEXT
  7. 270  FOR Y1% = TOP TO BOT STEP 7
  8. 275  GLIN$=SPACE$(RIGHT-LEFT+1)
  9. 280  P%=0
  10. 285  LPRINT CHR$(27);"L";CHR$(107);CHR$(2);STRING$(LEFT-1,0);
  11. 290  FOR X%=LEFT TO RIGHT
  12. 300  CLR%=(POINT(X%,Y1%)*128)+(POINT(X%,Y1%+1)*64)+(POINT(X%,Y1%+2)*32)+(POINT(X%,Y1%+3)*16)+(POINT(X%,Y1%+4)*8)+(POINT(X%,Y1%+5)*4)+(POINT(X%,Y1%+6)*2)+POINT(X%,Y1%+7)
  13. 310  IF CLR% = 7 THEN CLR% = 3
  14. 311  P%=P%+1
  15. 320  MID$(GLIN$,P%)=CHR$(CLR%)
  16. 340  NEXT
  17. 345  LPRINT GLIN$;
  18. 350  LPRINT STRING$(619-RIGHT,0)
  19. 460  NEXT
  20. 470  SCREEN 0,1
  21. 480  WIDTH 40
  22. 490  CLS
  23. 500  PRINT " "
  24. 510  PRINT "    PRINT COMPLETE"
  25. 520  CHAIN "easygraf"
  26.